home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 3 / 64er_Magazin_Sonderheft_03_86-03_1986_Markt__Technik_de_Side_B.d64 / 16 farben (.txt) next >
Commodore BASIC  |  2022-10-26  |  744b  |  20 lines
  1. 10 print"[147]moment"
  2. 20 ck=0
  3. 30 forg=673to754:reada:pokeg,a:ck=ck+a:next
  4. 40 ifck<>8662thenprint"data error":end
  5. 50 data 169,172,141,008,003,169,002,141,009,003,096,032,115,000,201,033,240
  6. 60 data 009,032,121,000,076,231,199,076,008,207,160,000,032,115,000,217,238
  7. 70 data 002,208,243,200,192,005,208,243,032,155,215,142,132,003,032,121,000
  8. 80 data 201,044,208,225,032,155,215,138,010,010,010,010,109,132,003,141,015
  9. 90 data 144,169,005,032,210,255,076,174,199,070,065,082,066,069
  10. 100 sys673
  11. 110 !farbe 6,14
  12. 120 print"[147]      16 farben"
  13. 130 print"syntax: !farbe border(0-7), text(0-15)"
  14. 140 print"                                      "
  15. 150 print"                taste
  16. 160 [153]"                                      "
  17. 170 [161]z$:[139]z$[178]""[167]170
  18. 180 [153]"load";:!farbe 3,6
  19. 190 [153]"********!farbe********":[162]
  20.